(viper-setup-master-buffer): Use `mapc' rather than `mapcar'.

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index eebf09aed22e90b54cf60a6a380aa7b9fdc0ee8e..7073cd019dda6158b04a71079e602a1ee1de860f 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1260,9 +1260,9 @@ Arguments become related buffers.  This function should normally be used in
 the `Local variables' section of a file."
   (setq viper-related-files-and-buffers-ring
        (make-ring (1+ (length other-files-or-buffers))))
-  (mapcar '(lambda (elt)
-            (viper-ring-insert viper-related-files-and-buffers-ring elt))
-         other-files-or-buffers)
+  (mapc '(lambda (elt)
+         (viper-ring-insert viper-related-files-and-buffers-ring elt))
+       other-files-or-buffers)
   (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name))
   )